perm filename OOO[MUS,LCS]1 blob
sn#166844 filedate 1975-07-03 generic text, type T, neo UTF8
100 GLISS 0 0 33;
200 P2 .24;
300 P3 "P7"; <PICKS UP PREVIOUS VALUE
400 P4 2000;
500 P5 FUNC/10/11//12/REP 4 8/ 1; <4-NOTE PHRASES, LAST NOTE SOST.
600 P6 F4; <TONE OF GLISS.
700 P7 NOTES/D4/E/F/G/ F/E/D/C; <UP AND DOWN C→G→C
800 P8 P2;
900 P9 F5; <SHAPE OF GLISS.
1000 END;
1100
1200 INSERT -99;
1300 P7←C ;<INITIALIZES P7 SO P3 FINDS THE RIGHT NOTE.
1400
1500 DUMMY INVIS 0 0 33;
1600 P2 P2;
1700 P3 "SEG(F5); 0 1"; <F5 ALWAYS STARTS AT ZERO
1800 P4 0; < AMPL. OF 2ND STEP IS ALWAYS 0
1900 P5 MOVE/7.2 99 1; < 2ND STEP MOVES FROM 99 TO 1.
2000 P6 1; < AMPL OF LAST STEP
2100 P7 100; < LAST STEP NUM.
2200 END;
2300
2400 DUMMY 2 33;
2500 P6 0; < NO GLISS ON LAST NOTE!
2600 END;
ZLIDE.DAT EDIT FILE NAME=SLIDE V ARRAY= 136/2000
TEMPO FACTOR= 1.00
GLISS RANDOM TF = .00 DURATION = 33. NOTES
DUMMY RANDOM TF = .00 DURATION = 33. NOTES
P7←C ;<INITIALIZES P7 SO P3 FINDS THE RIGHT NOTE.
< ZLIDE.DAT -- RANDOM NUMBER= 1
PLAY;
GLISS 0.000 0.240 P7 2000.000 F10 F4 D 0.240 F5 ;< 1 GLISS 1 > 0.000
SEG(F5); 0 1 0.000 99.000 1.000 100.000;< 2 DUMMY 1 > 0.000
GLISS 0.240 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 2 > 0.240
SEG(F5); 0 1 0.000 95.733 1.000 100.000;< 2 DUMMY 2 > 0.240
GLISS 0.480 0.240 P7 2000.000 F11 F4 F 0.240 F5 ;< 1 GLISS 3 > 0.480
SEG(F5); 0 1 0.000 92.467 1.000 100.000;< 2 DUMMY 3 > 0.480
GLISS 0.720 0.240 P7 2000.000 F12 F4 G 0.240 F5 ;< 1 GLISS 4 > 0.720
SEG(F5); 0 1 0.000 89.200 1.000 100.000;< 2 DUMMY 4 > 0.720
GLISS 0.960 0.240 P7 2000.000 F10 F4 F 0.240 F5 ;< 1 GLISS 5 > 0.960
SEG(F5); 0 1 0.000 85.933 1.000 100.000;< 2 DUMMY 5 > 0.960
GLISS 1.200 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 6 > 1.200
SEG(F5); 0 1 0.000 82.667 1.000 100.000;< 2 DUMMY 6 > 1.200
GLISS 1.440 0.240 P7 2000.000 F11 F4 D 0.240 F5 ;< 1 GLISS 7 > 1.440
SEG(F5); 0 1 0.000 79.400 1.000 100.000;< 2 DUMMY 7 > 1.440
GLISS 1.680 0.240 P7 2000.000 F12 F4 C 0.240 F5 ;< 1 GLISS 8 > 1.680
SEG(F5); 0 1 0.000 76.133 1.000 100.000;< 2 DUMMY 8 > 1.680
GLISS 1.920 0.240 P7 2000.000 F10 F4 D 0.240 F5 ;< 1 GLISS 9 > 1.920
SEG(F5); 0 1 0.000 72.867 1.000 100.000;< 2 DUMMY 9 > 1.920
GLISS 2.160 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 10 > 2.160
SEG(F5); 0 1 0.000 69.600 1.000 100.000;< 2 DUMMY 10 > 2.160
GLISS 2.400 0.240 P7 2000.000 F11 F4 F 0.240 F5 ;< 1 GLISS 11 > 2.400
SEG(F5); 0 1 0.000 66.333 1.000 100.000;< 2 DUMMY 11 > 2.400
GLISS 2.640 0.240 P7 2000.000 F12 F4 G 0.240 F5 ;< 1 GLISS 12 > 2.640
SEG(F5); 0 1 0.000 63.067 1.000 100.000;< 2 DUMMY 12 > 2.640
GLISS 2.880 0.240 P7 2000.000 F10 F4 F 0.240 F5 ;< 1 GLISS 13 > 2.880
SEG(F5); 0 1 0.000 59.800 1.000 100.000;< 2 DUMMY 13 > 2.880
GLISS 3.120 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 14 > 3.120
SEG(F5); 0 1 0.000 56.533 1.000 100.000;< 2 DUMMY 14 > 3.120
GLISS 3.360 0.240 P7 2000.000 F11 F4 D 0.240 F5 ;< 1 GLISS 15 > 3.360
SEG(F5); 0 1 0.000 53.267 1.000 100.000;< 2 DUMMY 15 > 3.360
GLISS 3.600 0.240 P7 2000.000 F12 F4 C 0.240 F5 ;< 1 GLISS 16 > 3.600
SEG(F5); 0 1 0.000 50.000 1.000 100.000;< 2 DUMMY 16 > 3.600
GLISS 3.840 0.240 P7 2000.000 F10 F4 D 0.240 F5 ;< 1 GLISS 17 > 3.840
SEG(F5); 0 1 0.000 46.733 1.000 100.000;< 2 DUMMY 17 > 3.840
GLISS 4.080 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 18 > 4.080
SEG(F5); 0 1 0.000 43.467 1.000 100.000;< 2 DUMMY 18 > 4.080
GLISS 4.320 0.240 P7 2000.000 F11 F4 F 0.240 F5 ;< 1 GLISS 19 > 4.320
SEG(F5); 0 1 0.000 40.200 1.000 100.000;< 2 DUMMY 19 > 4.320
GLISS 4.560 0.240 P7 2000.000 F12 F4 G 0.240 F5 ;< 1 GLISS 20 > 4.560
SEG(F5); 0 1 0.000 36.933 1.000 100.000;< 2 DUMMY 20 > 4.560
GLISS 4.800 0.240 P7 2000.000 F10 F4 F 0.240 F5 ;< 1 GLISS 21 > 4.800
SEG(F5); 0 1 0.000 33.667 1.000 100.000;< 2 DUMMY 21 > 4.800
GLISS 5.040 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 22 > 5.040
SEG(F5); 0 1 0.000 30.400 1.000 100.000;< 2 DUMMY 22 > 5.040
GLISS 5.280 0.240 P7 2000.000 F11 F4 D 0.240 F5 ;< 1 GLISS 23 > 5.280
SEG(F5); 0 1 0.000 27.133 1.000 100.000;< 2 DUMMY 23 > 5.280
GLISS 5.520 0.240 P7 2000.000 F12 F4 C 0.240 F5 ;< 1 GLISS 24 > 5.520
SEG(F5); 0 1 0.000 23.867 1.000 100.000;< 2 DUMMY 24 > 5.520
GLISS 5.760 0.240 P7 2000.000 F10 F4 D 0.240 F5 ;< 1 GLISS 25 > 5.760
SEG(F5); 0 1 0.000 20.600 1.000 100.000;< 2 DUMMY 25 > 5.760
GLISS 6.000 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 26 > 6.000
SEG(F5); 0 1 0.000 17.333 1.000 100.000;< 2 DUMMY 26 > 6.000
GLISS 6.240 0.240 P7 2000.000 F11 F4 F 0.240 F5 ;< 1 GLISS 27 > 6.240
SEG(F5); 0 1 0.000 14.067 1.000 100.000;< 2 DUMMY 27 > 6.240
GLISS 6.480 0.240 P7 2000.000 F12 F4 G 0.240 F5 ;< 1 GLISS 28 > 6.480
SEG(F5); 0 1 0.000 10.800 1.000 100.000;< 2 DUMMY 28 > 6.480
GLISS 6.720 0.240 P7 2000.000 F10 F4 F 0.240 F5 ;< 1 GLISS 29 > 6.720
SEG(F5); 0 1 0.000 7.533 1.000 100.000;< 2 DUMMY 29 > 6.720
GLISS 6.960 0.240 P7 2000.000 F11 F4 E 0.240 F5 ;< 1 GLISS 30 > 6.960
SEG(F5); 0 1 0.000 4.267 1.000 100.000;< 2 DUMMY 30 > 6.960
GLISS 7.200 0.240 P7 2000.000 F11 F4 D 0.240 F5 ;< 1 GLISS 31 > 7.200
SEG(F5); 0 1 0.000 1.000 1.000 100.000;< 2 DUMMY 31 > 7.200
GLISS 7.440 0.240 P7 2000.000 F12 F4 C 0.240 F5 ;< 1 GLISS 32 > 7.440
SEG(F5); 0 1 0.000 1.000 1.000 100.000;< 2 DUMMY 32 > 7.440
GLISS 7.680 0.240 P7 2000.000 F1 F4 D 0.240 F5 ;< 1 GLISS 33 > 7.680
<< CHANGE 1 BEGINS ON NOTE 33. DUMMY >>
SEG(F5); 0 1 0.000 1.000 0.000 100.000;< 2 DUMMY 33 > 7.680
FINISH; < ZLIDE.DAT
AMPL. FACTOR=1.00, P4 MAX.AMP.=2000, AT TIME 0.000
TOTAL DURS: GLISS= 7.920 DUMMY= 7.920